home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: 500 MB Amiga Software / 500 MB Amiga Software - Euber 130 - Amiga Games Disc & Mag.iso / userbox / publicdomain / mcalc / source / mcalc.h < prev    next >
Text File  |  1995-01-22  |  16KB  |  403 lines
  1. /*
  2. Auto:        smake MCalc
  3. */
  4.  
  5.  
  6. /* $Revision Header built automatically *************** (do not edit) ************
  7. **
  8. ** © Copyright by GuntherSoft
  9. **
  10. ** File             : SnakeSYS:CPrgs/MUICalc/MCalc.h
  11. ** Created on       : Saturday, 02.10.93 02:16:34
  12. ** Created by       : Kai Iske
  13. ** Current revision : V1.5
  14. **
  15. **
  16. ** Purpose
  17. ** -------
  18. **   - Header-File for MCalc
  19. **
  20. ** Revision V1.5
  21. ** --------------
  22. ** created on Donnerstag, 25.08.94 03:09:39  by  Kai Iske.   LogMessage :
  23. **  -*-  changed on Saturday, 21.01.95 17:43:49  by  --- Unknown ---.   LogMessage :
  24. **   - Added new function to menu/ARexx. DELETEHISTORY will delete
  25. **     an entry from the history list.
  26. **     (Requested by : Sorry, I lost you name, but thanks for the
  27. **     suggestions and the translation of the manual)
  28. **  -*-  changed on Samstag, 21.01.95 17:15:17  by  Kai Iske.   LogMessage :
  29. **   - Added support for GRADS
  30. **     (Requested by : Sorry, I lost you name, but thanks for the
  31. **     suggestions and the translation of the manual)
  32. **  -*-  changed on Samstag, 21.01.95 16:07:13  by  Kai Iske.   LogMessage :
  33. **   - Introduced exg operator, which exchanges the contents
  34. **     of two memories
  35. **     (Requested by : Sorry, I lost you name, but thanks for the
  36. **     suggestions and the translation of the manual)
  37. **  -*-  changed on Samstag, 21.01.95 01:06:35  by  Kai Iske.   LogMessage :
  38. **   - Added great support for physical constants. 31 listed
  39. **     (Requested by : Sorry, I lost you name, but thanks for the
  40. **     suggestions and the translation of the manual)
  41. **  -*-  changed on Freitag, 20.01.95 18:37:04  by  Kai Iske.   LogMessage :
  42. **   - Added full features linear regression support
  43. **     (Requested by : Volker Güth)
  44. **  -*-  changed on Freitag, 20.01.95 12:58:05  by  Kai Iske.   LogMessage :
  45. **   - Added standard deviation support
  46. **     (Requested by : Volker Güth)
  47. **  -*-  changed on Freitag, 20.01.95 12:26:16  by  Kai Iske.   LogMessage :
  48. **   - Added (n k) n-over-k function, 1/x, and the y-th root of x
  49. **     function.
  50. **     (Requested by : Sorry, I lost you name, but thanks for the
  51. **     suggestions and the translation of the manual)
  52. **  -*-  changed on Donnerstag, 19.01.95 17:51:12  by  Kai Iske.   LogMessage :
  53. **   - Increased number of internal memories from 3 to 18 (I-Z)
  54. **  -*-  changed on Donnerstag, 19.01.95 17:25:41  by  Kai Iske.   LogMessage :
  55. **   - Changed function group to use Registers/Cycle Gadget,
  56. **     according to your MUI settings.
  57. **   - MCalc requested any muimaster.library, even though version
  58. **     7 (MUI 2.x) was required
  59. **  -*-  changed on Mittwoch, 18.01.95 19:58:42  by  Kai Iske.   LogMessage :
  60. **   - Some of the input gadgets didn`t react on key nor mouse
  61. **     activations.
  62. **     (Reported by : Andreas Kirchwitz, and several others)
  63. **  -*-  changed on Freitag, 26.08.94 14:22:31  by  Kai Iske.   LogMessage :
  64. **   - Recompiled scanner using Flex 2.4.7
  65. **  -*-  created on Donnerstag, 25.08.94 03:09:39  by  Kai Iske.   LogMessage :
  66. **   - The format identifier for binary values has been changed;
  67. **     I forgot to change the output format identifier as well.
  68. **
  69. ** Revision V1.4
  70. ** --------------
  71. ** created on Thursday, 17.03.94 20:09:05  by  Kai Iske.   LogMessage :
  72. **  -*-  changed on Donnerstag, 18.08.94 17:35:24  by  Kai Iske.   LogMessage :
  73. **   - MCalc didn`t even care about Percent calculations
  74. **  -*-  changed on Sonntag, 07.08.94 20:30:27  by  Kai Iske.   LogMessage :
  75. **   - atan() wasn`t definied for some ranges (somehow)
  76. **  -*-  changed on Sonntag, 07.08.94 20:17:13  by  Kai Iske.   LogMessage :
  77. **   - The InputString will be default object now
  78. **  -*-  created on Thursday, 17.03.94 20:09:05  by  Kai Iske.   LogMessage :
  79. **   - Recompiled with Scanner generated by flex 2.4.6
  80. **
  81. ** Revision V1.3
  82. ** --------------
  83. ** created on Friday, 11.02.94 23:34:08  by  Kai Iske.   LogMessage :
  84. **  -*-  changed on Friday, 11.02.94 23:35:32  by  Kai Iske.   LogMessage :
  85. **   - One couldn`t use 1e3 for scientific notation of 1000. You
  86. **     had to write 1.0e3. Changed
  87. **     (Reported by : Henry Norman)
  88. **   - No more error lines will be copied from History
  89. **     (Requested by : Stefan Stuntz)
  90. **  -*-  created on Friday, 11.02.94 23:34:08  by  Kai Iske.   LogMessage :
  91. **   - "Radiant" was wrong. Changed. Why didn`t anybody tell me.
  92. **     (Reported by : Henry Norman)
  93. **   - Chose wrong case for mathematical "e".
  94. **     (Reported by : Henry Norman)
  95. **
  96. ** Revision V1.2
  97. ** --------------
  98. ** created on Tuesday, 19.10.93 23:41:00  by  Kai Iske.   LogMessage :
  99. **  -*-  changed on Wednesday, 08.12.93 23:48:31  by  Kai Iske.   LogMessage :
  100. **   - Default number of history lines increased
  101. **     (Requested by : Stefan Stuntz)
  102. **  -*-  changed on Sunday, 05.12.93 22:30:41  by  Kai Iske.   LogMessage :
  103. **   - No checks were made on the ENTRY argument to an ARexx
  104. **     function
  105. **  -*-  changed on Sunday, 05.12.93 18:13:56  by  Kai Iske.   LogMessage :
  106. **   - For calculations via ARexx one can set the type, size, sign
  107. **     and angle flags seperately, now
  108. **  -*-  changed on Sunday, 05.12.93 17:50:09  by  Kai Iske.   LogMessage :
  109. **   - Improved error handling from within ARexx commands a bit
  110. **  -*-  changed on Sunday, 05.12.93 17:46:35  by  Kai Iske.   LogMessage :
  111. **   - MUIProCalc may output TeX style mathematical expressions
  112. **     when using the ARexx commands. Additionally there is another
  113. **     option to convert expressions to TeX format.
  114. **     (Requested by : Volker Güth)
  115. **  -*-  changed on Sunday, 05.12.93 16:47:59  by  Kai Iske.   LogMessage :
  116. **   - Added more ARexx functions to the default ones
  117. **     (CALC, GETINPUT, GETOUTPUT)
  118. **     (Requested by : Volker Güth)
  119. **  -*-  changed on Sunday, 05.12.93 01:47:36  by  Kai Iske.   LogMessage :
  120. **   - MUIProCalc didn`t handle extremly small values
  121. **     (Reported by : Volker Güth)
  122. **  -*-  changed on Sunday, 05.12.93 01:38:18  by  Kai Iske.   LogMessage :
  123. **   - Default values weren`t set up
  124. **   - ACLR and CLR gadget have got menu entries too, now
  125. **     (Requested by : Volker Güth)
  126. **   - History entries may be copied to clipboard now
  127. **     (Requested by : Volker Güth)
  128. **  -*-  changed on Saturday, 27.11.93 01:01:25  by  Kai Iske.   LogMessage :
  129. **   - Recompiled using SAS 6.50
  130. **  -*-  changed on Wednesday, 20.10.93 00:24:41  by  Kai Iske.   LogMessage :
  131. **   - Bug in ListView display fixed
  132. **  -*-  created on Tuesday, 19.10.93 23:41:00  by  Kai Iske.   LogMessage :
  133. **   - You may now tell MCalc to clear the input string after
  134. **     hitting RETURN or EXEC.
  135. **
  136. ** Revision V1.1
  137. ** --------------
  138. ** created on Tuesday, 12.10.93 01:50:26  by  Kai Iske.   LogMessage :
  139. **  -*-  changed on Sunday, 17.10.93 15:03:10  by  Kai Iske.   LogMessage :
  140. **   - Save and Use gadgets weren`t arranged as proposed
  141. **     by the AUISG. (Reported by: Stefan Stuntz)
  142. **   - Changed layout of Prefs window a bit
  143. **     (Suggested by: Stefan Stuntz)
  144. **  -*-  changed on Friday, 15.10.93 18:39:50  by  Kai Iske.   LogMessage :
  145. **   - NOT operator didn`t behave as expected ;) It was a simple
  146. **     negate... (Reported by : Top on IRC)
  147. **  -*-  changed on Thursday, 14.10.93 18:01:32  by  Kai Iske.   LogMessage :
  148. **   - Hex-Values may be entered using 'C'-Style now (e.g. 0xff)
  149. **  -*-  changed on Thursday, 14.10.93 00:34:55  by  Kai Iske.   LogMessage :
  150. **   - One can use the faktorian '!' behind numbers now, too.
  151. **     (Suggested by : Top on IRC)
  152. **  -*-  changed on Thursday, 14.10.93 00:28:52  by  Kai Iske.   LogMessage :
  153. **   - One could accidentially change the ordering of the
  154. **     functions and input-gadgets groups by using
  155. **     'No Functions' and 'No Input' (reported by: Top on IRC)
  156. **  -*-  created on Tuesday, 12.10.93 01:50:26  by  Kai Iske.   LogMessage :
  157. **   - Order of Input and Ouput gadgets (String + ListView) may be
  158. **     set now, ie. the input string may show up underneith the
  159. **     ListView and vice versa (Requested by Dirk Federlein)
  160. **
  161. ** Revision V1.0
  162. ** --------------
  163. ** created on Saturday, 02.10.93 02:16:34  by  Kai Iske.   LogMessage :
  164. **     --- Initial release ---
  165. **
  166. *********************************************************************************/
  167. #define REVISION "1.5"
  168. #define REVDATE  "21.01.95"
  169. #define REVTIME  "17:43:49"
  170. #define AUTHOR   "--- Unknown ---"
  171. #define VERNUM   1
  172. #define REVNUM   5
  173.  
  174.  
  175. #ifndef        MCALC_H
  176. #define        MCALC_H
  177.  
  178.  
  179.  
  180. /**********************************************************************/
  181. /*                         Parser-Prototypes                          */
  182. /**********************************************************************/
  183. int        yyparse(void);
  184. int        yyerror(char *s);
  185. ULONG        make_ulong(double OldVal);
  186. double        calc_fak(double Fak);
  187. double        calc_angle(double Value);
  188. BOOL        check_angle(double Value, int Mode);
  189. BOOL        add_standard_value(double Value);
  190. BOOL        add_linear_value(double ValueX, double ValueY);
  191. int        numbers_in_list(struct List *Lst);
  192. double        calc_average(struct List *Lst, BOOL LinearValueY);
  193. double        calc_population(struct List *Lst, BOOL LinearValueY);
  194. double        calc_sample(struct List *Lst, BOOL LinearValueY);
  195. double        calc_powsum(struct List *Lst, BOOL LinearValueY);
  196. double        calc_sum(struct List *Lst, BOOL LinearValueY);
  197. double        calc_xysum(void);
  198. double        calc_lralpha(void);
  199. double        calc_lrbeta(void);
  200. double        calc_lrassessx(double y);
  201. double        calc_lrassessy(double x);
  202. double        calc_lrcorr(void);
  203. double        calc_lrcovar(void);
  204.  
  205.  
  206.  
  207.  
  208.  
  209. /**********************************************************************/
  210. /*                         Scanner-Prototypes                         */
  211. /**********************************************************************/
  212. int    yylex(void);
  213. void    yyrestart(FILE *File);
  214. void    count(void);
  215. int    calc_int_value(char *s);
  216. int    calc_hex_value(char *s, int leng);
  217. int    calc_bin_value(char *s);
  218. int    calc_oct_value(char *s);
  219. int    calc_dbl_value(char *s);
  220.  
  221.  
  222.  
  223. /**********************************************************************/
  224. /*                   Error-Codes for Scanner/Parser                   */
  225. /**********************************************************************/
  226. #define    ERR_PARSE    1
  227. #define    ERR_UNKNOWN_CHR    2
  228. #define    ERR_DIVBY0    3
  229. #define    ERR_OVERFLOW    4
  230. #define    ERR_NOMEM    5
  231. #define    ERR_UNDERFLOW    6
  232.  
  233.  
  234.  
  235.  
  236. /**********************************************************************/
  237. /*                      My constant definitions                       */
  238. /**********************************************************************/
  239. #define Pi      ((double) 3.141592653589793)
  240.  
  241.  
  242.  
  243.  
  244. /**********************************************************************/
  245. /*                        Assembler-Prototypes                        */
  246. /**********************************************************************/
  247. ULONG    __asm MyASL(register __d0 ULONG In, register __d1 ULONG Out);
  248. ULONG    __asm MyASR(register __d0 ULONG In, register __d1 ULONG Out);
  249. ULONG    __asm MyLSL(register __d0 ULONG In, register __d1 ULONG Out);
  250. ULONG    __asm MyLSR(register __d0 ULONG In, register __d1 ULONG Out);
  251. ULONG    __asm MyROL(register __d0 ULONG In, register __d1 ULONG Out);
  252. ULONG    __asm MyROR(register __d0 ULONG In, register __d1 ULONG Out);
  253. ULONG    __asm MyXOR(register __d0 ULONG In, register __d1 ULONG Out);
  254. ULONG    __asm MyNAND(register __d0 ULONG In, register __d1 ULONG Out);
  255. ULONG    __asm MyNOR(register __d0 ULONG In, register __d1 ULONG Out);
  256. ULONG    __asm MyNXOR(register __d0 ULONG In, register __d1 ULONG Out);
  257. APTR    __asm DoCreatePool(register __d0 ULONG, register __d1 ULONG, register __d2 ULONG);
  258. void    __asm DoDeletePool(register __a0 APTR);
  259. APTR    __asm AllocVecPool(register __a0 APTR, register __d0 ULONG);
  260. void    __asm FreeVecPool(register __a0 APTR, register __a1 APTR);
  261.  
  262.  
  263.  
  264. /**********************************************************************/
  265. /*                   Structure for ListView display                   */
  266. /**********************************************************************/
  267. struct    ListStruct
  268. {
  269.     char    Input[258];
  270.     char    Output[258];
  271. };
  272.  
  273.  
  274.  
  275.  
  276. /**********************************************************************/
  277. /*       Node to use for Standard/Linear Regression calculation       */
  278. /**********************************************************************/
  279. struct    DoubleNode
  280. {
  281.     struct    Node    Link;
  282.     double        ValueX;
  283.     double        ValueY;
  284. };
  285.  
  286.  
  287.  
  288. /**********************************************************************/
  289. /*                   Node for displaying constants                    */
  290. /**********************************************************************/
  291. struct    ConstNode
  292. {
  293.     char        *Constant;
  294.     char        *Value;
  295.     char        *Notation;
  296. };
  297.  
  298.  
  299.  
  300. /**********************************************************************/
  301. /*                         Some nice defines                          */
  302. /**********************************************************************/
  303.  
  304.     // This is our Version string
  305.  
  306. #define    MUIVERS        "$VER:MCalc "REVISION" ("REVDATE")"
  307.  
  308.  
  309.     // These are for Button/Menu IDs
  310.  
  311. enum{
  312.     DUMMY,
  313.  
  314.     ID_QUIT,            // Quit program
  315.     ID_ABOUT,            // Display About
  316.     ID_PREFS,            // Open Prefs
  317.  
  318.     ID_PICKLEFT,            // Pick left entry from History
  319.     ID_PICKRIGHT,            // Pick right entry from History
  320.     ID_CLIPCUTLEFT,            // Clip left entry to clipboard
  321.     ID_CLIPCUTRIGHT,        // Clip right entry to clipboard
  322.     ID_DELHISTORY,            // Delete active entry from History
  323.  
  324.     ID_DECIMAL,            // Switch to dec display
  325.     ID_HEXDECIMAL,            // Switch to hex display
  326.     ID_OCTAL,            // Switch to oct display
  327.     ID_BINARY,            // Switch to bin display
  328.  
  329.     ID_8BIT,            // Set 8-Bit Base
  330.     ID_16BIT,            // Set 16-Bit Base
  331.     ID_32BIT,            // Set 32-Bit Base
  332.  
  333.     ID_SIGNED,            // Switch to signed dec ouput
  334.     ID_UNSIGNED,            // Switch to unsigned dec output
  335.  
  336.     ID_RAD,                // Radiant angles
  337.     ID_DEG,                // Degree angles
  338.     ID_GRAD,            // Grads angles
  339.  
  340.     ID_STDHISTORY,            // Open std.deviation history
  341.     ID_CLOSESTD,            // Close std.deviation history
  342.     ID_LINHISTORY,            // Open lin.regression history
  343.     ID_CLOSELIN,            // Close lin.regression history
  344.     ID_CONSTANTS,            // Open constants window
  345.     ID_CLOSECONST,            // Close constants window
  346.     ID_SELECTCONST,            // Select constant
  347.  
  348.     ID_INPUT,            // Received input from String gadget
  349.     ID_LISTVIEW,            // Double clicked on ListView
  350.     ID_EXEC,            // Translate input
  351.     ID_CLEAR,            // Clear input gadget
  352.     ID_ALLCLEAR,            // Clear input gadget AND memory
  353.  
  354.     ID_PREFS_QUIT,            // Close Prefs window
  355.     ID_PREFS_NEW            // New Prefs set
  356. };
  357.  
  358.  
  359.  
  360.  
  361.  
  362.  
  363. /**********************************************************************/
  364. /*                    Definitions for Online-Help                     */
  365. /**********************************************************************/
  366. #define    HELPFILE        "MCalc.guide"
  367. #define    NODE_MAIN        "Main"
  368. #define    NODE_INOUTPUT        "InputOutput"
  369. #define    NODE_FUNCTIONS        "FuncTables"
  370. #define    NODE_STDDEVIATION    "StdDeviation"
  371. #define    NODE_LINREGRESSION    "LinRegression"
  372. #define    NODE_INPUTS        "Inputs"
  373. #define    NODE_PREFS        "Prefs"
  374. #define    NODE_LAYOUT        "Layout"
  375. #define    NODE_OUTPUT        "Output"
  376. #define    NODE_HISTORY        "History"
  377. #define    NODE_MISC        "Misc"
  378. #define    NODE_WINDOWS        "Windows"
  379.  
  380.  
  381. /**********************************************************************/
  382. /*                   Defines for Clipboard support                    */
  383. /**********************************************************************/
  384. #define ID_FTXT    MAKE_ID('F','T','X','T')
  385. #define ID_CHRS    MAKE_ID('C','H','R','S')
  386.  
  387.  
  388. /**********************************************************************/
  389. /*                       Some defines for ARexx                       */
  390. /**********************************************************************/
  391. #define    GET_OUTPUT        1
  392. #define    GET_INPUT        2
  393.  
  394. #define    NORMAL_OUTPUT        1
  395. #define    TEX_OUTPUT        2
  396.  
  397. #define    GET_ACTIVE        -1
  398. #define    GET_TOPMOST        -2
  399. #define    GET_BOTTOMMOST        -3
  400.  
  401. #include    "Protos.h"
  402. #endif
  403.